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Figure H. 



05 SUB(SIMPLE.Serr) 

10 IF Ipmulticast REM (Has there been a request for a 
REM Multicast Join?) 
ELSE RETURN REM Exit 
20 CALL PING(AIIPimRouters,ExitStat,PingError) 

30 IF ExitStat 

CALL INITPIM(PIMErr) REM (If ping successful Initialize 

REM PIM RFWC XXXXX) 
RETURN ' 
40 CALL INITMBGP(BGPErr) 
CALL INITPIM (PIMErr) 
RETURN 



